10 POKE56,48:POKE55,0:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
22 POKE53281,0:POKE53280,0:PRINT"[147]"
24 IFPEEK(1021)=250THEN40
26 POKE1021,250
28 GOSUB60000
30 SYS57812"CHESS FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
40 SYS57812"CHESS SPRITES",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
50 PRINT"[147]";:POKE53280,0
60 POKE53281,10:POKE53272,31
70 PRINT"      [176][192][192][192][174] [174]   [176] [176][192][192][192][174] [176][192][192][192][174] [176][192][192][192][174]
71 [153]"      (null)     -TANTANTAN< -TANTAN   /TANTANTAN^ /TANTANTAN^
72 PRINT"[144]      [173][192][192][192][189] [189]   [173] [173][192][192][192][189] [173][192][192][192][189] [173][192][192][192][189]
73 [153]
74 [153]"   ORTANTANTAN^ ^   OR ORTANTANTAN^ ORTANTANTAN^ ORTAN=TAN^ ORTANTANTAN^
75 PRINT"   [221]   [221] [221]   [221] [171][192][192][192][179] [171][192][178][192][189]   [221]   [221]   [221]
76 [153]"STOP   /TANTANTAN(null) /TANTANTANEXP EXP   / EXP /TANTANTANEXP >   /TANTANTANEXP
80 PRINT"[144]     [198]OUR [208]UZZLES BY [195]ARL [194]EVINGTON
100 [151]214,12:[153]:[153]"STOP          (1STOP) LENORNER THE (null)ING
110 PRINT"          (2[144]) [203]NIGHT'S [209]UADRILLE
120 [153]"          (3STOP) (null)IX (null)AWNS
130 PRINT"          (4[144]) [203]NIGHTS' [197]XCHANGE
140 [153]"          (5STOP) (null)UIT TO (null)(null)ATNSTR$(null)(null)ATN(null)
200 POKE198,0
210 GETA$
220 IFA$<"1"ORA$>"5"THEN210
230 ONVAL(A$)GOTO240,250,260,270,40000
240 F$="KING PUZZLE":GOTO280
250 F$="KNIGHTS QUAD":GOTO280
260 F$="SIX PAWNS":GOTO280
270 F$="KNIGHTS EX"
280 PRINT"[147]":POKE53281,0:POKE214,20:PRINT
282 PRINT"          [204]OADING, PLEASE WAIT.
290 [153]"STOPLOAD"[199](34)F$[199](34)",",DV
292 [153]"RUN"
294 [151]631,13:[151]632,13:[151]198,2:[128]
10000 D[178][194](186):N$[178]"B.CHESS QUARTO":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
40000 [153]"LOAD":[151]53281,0:[151]53280,0
40002 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"LEN LEFT$ VAL (null) (null)   (null) (null) ATN (null) (null) (null)
60040 Z$(2)="BY [195]ARL [194]EVINGTON
60050 Z$(4)[178]"(LEN) 1997 BY MID$ & ASC (null)UBLISHING, RIGHT$NC."
60060 Z$(6)[178]"(null)HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)="OR IN THE PUBLIC DOMAIN."
60080 Z$(9)="1-800-594-3370 OR 1-318-221-8718
60090 [151]214,12:[153]
60092 [129]I[178]0[164]9:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]
60094 TQ[178]0:[151]53370,0
60096 TQ[178]TQ[170]1:[161]A$:[139]A$[178]""[175]TQ[179]200[167]60096
60098 [151]53371,0:[142]